﻿Module mdlMain
    Public DB As classDB
End Module

Public Class ItsAlmostAStack(Of T)
    Private items As New List(Of T)()

    Public Sub Push(ByVal item As T)
        items.Add(item)
    End Sub
    Public Function Pop() As T
        If items.Count > 0 Then
            Dim temp As T = items.Last()
            items.Remove(temp)
            Return temp
        Else
            Return Nothing
        End If
    End Function
    Public Sub Remove(ByVal itemAtPosition As Integer)
        items.RemoveAt(itemAtPosition)
    End Sub
End Class


Public Class classProperty
    Public Name As String
    Public Value As Object
    Public value2 As Object

    Public Sub New(Optional ByRef strName As String = "", Optional ByRef oValue As Object = Nothing, Optional ByVal oValue2 As Object = Nothing)
        Name = strName
        Value = oValue
        value2 = oValue2
    End Sub
End Class